home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / language / embedded / pgmr / prog7b.arc / BLINK05.ASM next >
Encoding:
Assembly Source File  |  1989-03-19  |  768 b   |  45 lines
  1. $PG PAGEWIDTH=132
  2. $CHIP=6805
  3.  
  4.     DEFSEG  segabs, ABSOLUTE
  5.     SEG    segabs
  6.     ORG    50H
  7.  
  8. PORTA    EQU    0
  9. PORTB    EQU    1
  10. PORTC    EQU    2
  11. DDR    EQU    4
  12.  
  13.  
  14. PROG:    DB    END-PROG
  15.  
  16. BEGIN:    LDA    #0FFH        ; Change port "C" to output
  17.     STA    PORTC+DDR
  18.  
  19. LOOP:    BCLR    5,PORTC        ; turn on verify led
  20.     BSET    6,PORTC        ; turn off program led
  21.     JSR    DELAY        ; wait approx 1 second
  22.     BSET    5,PORTC        ; turn off verify led
  23.     BCLR    6,PORTC        ; turn on program led
  24.     JSR    DELAY        ; wait approx 1 second
  25.     BCLR    5,PORTC
  26.     BCLR    6,PORTC
  27.     JSR    DELAY
  28.     BSET    5,PORTC
  29.     BSET    6,PORTC
  30.     CALL    DELAY
  31.     BRA    LOOP        ; repeat for ever
  32.  
  33. DELAY:    LDA    #05FH
  34. LOADX:    LDX    #05FH
  35. DECX:    DECX
  36.     BNE    DECX
  37.     DECA
  38.     BNE    LOADX
  39.     RTS
  40.     DB    ' Gil Shultz Motorola 1989 '
  41. END:
  42.     END
  43.  
  44.  
  45.